subtract = flip (-)
flipAll = map flip

max2 :: Int -> Int -> Int
max2 = \x y -> if x >= y then x else y